﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
If key<>0 Then Call error("<card title=""警告""><p>权限不足！")

w "<card title='添加文章栏目'><p>"

dim class1
class1=request("class1")
if class1="" then
	w "分类名称不能为空!<br/><a href='tjwz.asp?sid="&sid&"'>返回修改</a>"
else
	dim rs
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from 74hu_list",myconn,2,3
	rs.addnew
	rs("class")=class1
	rs.update
	rs.close
	set rs=nothing

	w "文章栏目添加成功!"

end if
%><br/>----------<br/>
<a href='wzclass.asp?sid=<%=sid%>'>[文章分类]</a><%Call Last%>